home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / front.lha / front / src / SysError.mi < prev    next >
Text File  |  1992-08-18  |  1KB  |  55 lines
  1. (* handle system errors *)
  2.  
  3. (* $Id: SysError.mi,v 2.3 1992/08/07 15:13:51 grosch rel $ *)
  4.  
  5. (* $Log: SysError.mi,v $
  6.  * Revision 2.3  1992/08/07  15:13:51  grosch
  7.  * allow several scanner and parsers; extend module Errors
  8.  *
  9.  * Revision 2.2  1992/01/30  13:34:33  grosch
  10.  * redesign of interface to operating system
  11.  *
  12.  * Revision 2.1  1991/11/21  14:47:50  grosch
  13.  * new version of RCS on SPARC
  14.  *
  15.  * Revision 2.0  91/03/08  18:26:40  grosch
  16.  * turned tables into initialized arrays (in C)
  17.  * moved mapping tokens -> strings from Errors to Parser
  18.  * changed interface for source position
  19.  * 
  20.  * Revision 1.1  90/06/11  18:45:42  grosch
  21.  * layout improvements
  22.  * 
  23.  * Revision 1.0     88/10/04  14:27:20  vielsack
  24.  * Initial revision
  25.  * 
  26.  *)
  27.  
  28. IMPLEMENTATION MODULE SysError;
  29.  
  30. FROM Errors    IMPORT ErrorMessage, ErrorMessageI, SysOffset;
  31. FROM SYSTEM    IMPORT ADDRESS;
  32. FROM System    IMPORT ErrNum;
  33. FROM Positions    IMPORT NoPosition;
  34.  
  35. PROCEDURE StatIsBad (N: INTEGER): BOOLEAN;
  36.   BEGIN
  37.     RETURN N < 0;
  38.   END StatIsBad;
  39.  
  40. PROCEDURE SysErrorMessageI (N: INTEGER; ErrCl, InfCl: CARDINAL; Info: ADDRESS);
  41.   BEGIN
  42.     IF StatIsBad (N) THEN
  43.       ErrorMessageI (ErrNum () + SysOffset, ErrCl, NoPosition, InfCl, Info);
  44.     END;
  45.   END SysErrorMessageI;
  46.  
  47. PROCEDURE SysErrorMessage (N: INTEGER; ErrCl: CARDINAL);
  48.   BEGIN
  49.     IF StatIsBad (N) THEN
  50.       ErrorMessage (ErrNum () + SysOffset, ErrCl, NoPosition);
  51.     END;
  52.   END SysErrorMessage;
  53.  
  54. END SysError.
  55.